home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / IEditor / Expanders / BevelFill.desc < prev    next >
Encoding:
Text File  |  1997-06-17  |  1.3 KB  |  54 lines
  1. ##RENDPRI
  2. -5
  3. ##SUPPORT
  4.  
  5. void DrawBevelFill( struct Window *Wnd, WORD Left, WORD Top, UWORD Width, UWORD Height )
  6. {
  7.         WORD    x = Left + XOffset, y = Top + YOffset;
  8.  
  9.         SetAPen( Wnd->RPort, 0 );
  10.  
  11.         RectFill( Wnd->RPort, x, y,
  12.                   x + Width - 1, y + Height - 1 );
  13.  
  14.         DrawBevelBox( Wnd->RPort,
  15.                       x, y, Width, Height,
  16.                       GT_VisualInfo, VisualInfo,
  17.                       GTBB_Recessed, TRUE,
  18.                       TAG_DONE );
  19. }
  20.  
  21. ##SUPPORT-FA
  22.  
  23. void DrawBevelFill( struct Window *Wnd, WORD Left, WORD Top, UWORD Width, UWORD Height )
  24. {
  25.         WORD    x = ScaleX( Left ) + XOffset, y = ScaleY( Top ) + YOffset;
  26.         UWORD   w = ScaleX( Width ), h = ScaleY( Height );
  27.  
  28.         SetAPen( Wnd->RPort, 0 );
  29.  
  30.         RectFill( Wnd->RPort, x, y, x + w - 1, y + h - 1 );
  31.  
  32.         DrawBevelBox( Wnd->RPort, x, y, w, h,
  33.                       GT_VisualInfo, VisualInfo,
  34.                       GTBB_Recessed, TRUE,
  35.                       TAG_DONE );
  36. }
  37.  
  38. ##RENDER
  39.  
  40.         DrawBevelFill( %wWnd, %x, %y, %W, %h );
  41.  
  42. ##RENDER-GADGETS
  43.         RefreshGadgets( %wGList, %wWnd, NULL );
  44.  
  45. ##RENDER-BOOL
  46.  
  47.         DrawBevelFill( %wWnd, %x, %y, %W, %h );
  48.         RefreshGadgets( &%gGadget, %wWnd, NULL );
  49.  
  50. ##HEADER
  51. extern void DrawBevelFill( struct Window *, WORD, WORD, UWORD, UWORD );
  52.  
  53. ##end
  54.